perm filename COUNT.LAP[LSP,SYS] blob
sn#075545 filedate 1974-01-15 generic text, type T, neo UTF8
(SETQ IBASE (SETQ BASE (ADD1 7)))
(LAP QCOUNT SUBR)
(MOVE 2 1)
(MOVE 1 (SPECIAL OBLIST))
(JCALL 2 (E QCOUNT1))
NIL
(LAP QCOUNT1 SUBR)
(PUSH P 1)
(PUSH P 2)
(JUMPE 1 TAG1)
(CALL 1 (E ATOM))
(JUMPE 1 TAG2)
(MOVE 1 -1 P)
(CALL 2 (E QCOUNT2))
(JRST 0 TAG1)
TAG2 (MOVE 2 0 P)
(HLRZ@ 1 -1 P)
(CALL 2 (E QCOUNT1))
(MOVE 2 0 P)
(HRRZ@ 1 -1 P)
(CALL 2 (E QCOUNT1))
TAG3
TAG1 (SUB P (C 0 0 2 2))
(POPJ P)
NIL
(LAP QCOUNT2 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE COUNTER))
(CALL 2 (E GET))
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(MOVE 1 -2 P)
(CALL 1 (E PRINC))
(MOVEI 1 (QUOTE / ))
(CALL 1 (E PRINC))
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E LINELENGTH))
(PUSH P 1)
(CALL 0 (E CHRCT))
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *DIF))
(MOVEI 2 (QUOTE 15))
(CALL 2 (E *LESS))
(JUMPE 1 TAG7)
(MOVEI 1 (QUOTE / ))
(CALL 1 (E PRINC))
TAG7 (MOVEI 2 (QUOTE FIXNUM))
(MOVE 1 0 P)
(CALL 2 (E MAKNUM))
(CALL 1 (E PRINC))
(CALL 1 (E TERPRI))
(JRST 0 TAG4)
TAG5
TAG10
TAG4 (MOVE 1 0 P)
(JUMPE 1 TAG13)
(MOVE 1 -1 P)
(JUMPE 1 TAG13)
(MOVEI 3 (QUOTE COUNTER))
(MOVEI 2 (QUOTE NIL))
(MOVE 1 -2 P)
(CALL 3 (E PUTPROP))
TAG13 (MOVEI 1 (QUOTE NIL))
(SUB P (C 0 0 3 3))
(POPJ P)
NIL
(LAP QNIT SUBR)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NOUUO))
(MOVEI 3 (QUOTE SUBR))
(MOVEI 2 (QUOTE NIL))
(MOVEI 1 (QUOTE aaaaa))
(CALL 3 (E PUTPROP))
(MOVEI 2 (QUOTE (SUBR)))
(MOVEI 1 (QUOTE aaaaa))
(CALL 2 (E GETL))
(CALL 1 (E FOONIT))
(MOVEI 1 (QUOTE T))
(CALL 1 (E QCOUNT))
(MOVEI 1 (QUOTE T))
(CALL 1 (E NOUUO))
(MOVEI 2 (QUOTE SUBR))
(MOVEI 1 (QUOTE FOOCNT))
(CALL 2 (E GET))
(CALL 1 (E CNTSET))
(MOVEI 1 (QUOTE (aaaaa)))
(CALL 17 (E REMOB))
(MOVEI 1 (QUOTE NIL))
(POPJ P)
NIL
(LAP OPS FSUBR)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG6)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG2)
TAG6 (MOVEI 3 (QUOTE SYM))
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(HLRZ@ 1 0 P)
(CALL 3 (E PUTPROP))
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(DSKIN (QCOUNT . LAP))
(QNIT)